<%

Function ranking_atualizar_posicao(conexao, tabela, indice, ordem, condicao)

		str = "Select "&indice&", posicao, max_posicao FROM "&tabela&" WHERE 1=1 "&condicao&" order by "&ordem
    	Set rs = conexao.Execute(str)
		
		DIM posicao, posicao_anterior, max_posicao, id_usuario, max_str
		
		posicao = 0
		
		Do while not rs.eof
				
			posicao=posicao+1
			posicao_anterior = rs("posicao")
			max_posicao = int(rs("max_posicao"))
			id_clube = rs(indice)
			max_str = ""
			
			If posicao<max_posicao OR max_posicao=0 then
				max_str="max_posicao='"&posicao&"', "
			End If			
			
			str = "UPDATE "&tabela&" SET "&max_str
			str = str & "posicao='"&posicao&"', "
			str = str & "posicao_anterior='"&posicao_anterior&"' "
			str = str & " WHERE "&indice&"="&id_clube&" "&condicao
			Set rsI = conexao.Execute(str)				
			
			
		rs.MoveNext
		Loop
		

End Function

%>
